--CutContents
--Skrypt w jzyku AppleScript dla programu Adobe InDesign CS2
set done to false
tell application "Adobe InDesign CS2"
activate
set mySelection to selection
if (count mySelection) = 1 then
set myPageItem to item 1 of mySelection
repeat while done is false
if class of myPageItem is not group and (count page items of myPageItem) is greater than 0 then
set myItem to page item 1 of myPageItem
copy geometric bounds of myItem to myBounds
set myX to item 2 of myBounds
set myY to item 1 of myBounds
select myItem
cut
paste
set myPageItem to item 1 of selection
tell myPageItem to move to {myX, myY}
else
set done to true
end if
end repeat
end if
end tell